From: Edward M. Reingold <reingold@emr.cs.iit.edu>
Date: Tue, 14 Jun 1994 20:06:55 +0000 (+0000)
Subject: (calendar-mode-map): Change moon menu bar to pop up a menu.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91175
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=48b29ac00488bfc37a42f6e1e111a7c690dc5026;p=emacs.git

(calendar-mode-map): Change moon menu bar to pop up a menu.
---

diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index af2b9fe4e7d..f3ff24765f2 100644
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -42,6 +42,12 @@
 (defvar calendar-mouse-3-map (make-sparse-keymap "Calendar"))
 (define-key calendar-mode-map [down-mouse-3] calendar-mouse-3-map)
 
+(define-key calendar-mode-map [menu-bar moon]
+  (cons "Moon" (make-sparse-keymap "Moon")))
+
+(define-key calendar-mode-map [menu-bar moon moon]
+  '("Lunar phases" . calendar-phases-of-moon))
+
 (define-key calendar-mode-map [menu-bar diary]
   (cons "Diary" (make-sparse-keymap "Diary")))
 
@@ -277,7 +283,6 @@ ERROR is t, otherwise just returns nil."
            (list "Menu"
                  (list
                   (calendar-date-string date t t)
-		  '("Moon phase" . calendar-phases-of-moon)
                   '("Diary entries" . calendar-mouse-view-diary-entries)
                   '("Holidays" . calendar-mouse-holidays)
                   '("Mark date" . calendar-mouse-set-mark)